home *** CD-ROM | disk | FTP | other *** search
/ The Journey to Wild Divine / The Journey to Wild Divine - Disc 2.iso / installers / quicktime / quicktime65pkg / contents / resources / preflight < prev    next >
Text File  |  2003-11-05  |  2KB  |  88 lines
  1. #!/usr/bin/perl
  2.  
  3. #######################################
  4.  
  5. my $permissions_info_file = "/tmp/com.apple.installation.savedperm";
  6. my $target_disk = $ARGV[2];
  7. my @stat_info;
  8. my $MODE = 2;
  9. my $UID = 4;
  10. my $GID = 5;
  11.  
  12. if(! -e $permissions_info_file || (-e $permissions_info_file && unlink($permissions_info_file))) {
  13.     @stat_info = stat($target_disk);
  14.  
  15.     if(open(PERMS_FILE_HDL, ">$permissions_info_file")) {
  16.         print(PERMS_FILE_HDL join("\n", stat($target_disk)));
  17.         close(PERMS_FILE_HDL);
  18.         chmod(oct(700), "$permissions_info_file");
  19.     }
  20. }
  21.  
  22. ########################################
  23.  
  24. my $runnerPID = getppid();
  25. my $installerPID = "";
  26. my $uid = "";
  27. my $uname = "";
  28.  
  29. open( PSOUT, "/bin/ps -axww -o pid,ppid -p $runnerPID |" );
  30. while( <PSOUT> ) {
  31.     my @fields = split '\s+', $_;
  32.     if ("$fields[1]" eq "$runnerPID") {
  33.         $installerPID = $fields[2];
  34.     }
  35. }
  36. close( PSOUT );
  37.  
  38. if ("$installerPID" ne "") {
  39.     open( PSOUT, "/bin/ps -axww -o pid,ruid -p $installerPID |" );
  40.     while( <PSOUT> ) {
  41.         my @fields = split '\s+', $_;
  42.         if ("$fields[1]" eq "$installerPID") {
  43.             $uid = $fields[2];
  44.         }
  45.     }
  46.     close( PSOUT );
  47. }
  48.  
  49. if ("$uid" ne "") {
  50.     open( PSOUTA, "/usr/bin/id -p $uid |" );
  51.     while( <PSOUTA> ) {
  52.         my @fields = split '\s+', $_;
  53.         if ("$fields[0]" eq "uid") {
  54.             $uname = $fields[1];
  55.         }
  56.     }
  57.     close( PSOUTA );
  58. }
  59.  
  60. if ("$ENV{COMMAND_LINE_INSTALL}" ne "1") {
  61.     my $ALERT_APP = "$ARGV[0]" . "/Contents/Resources/QT6Installer.app/Contents/MacOS/QT6Installer";
  62.     my $EXIT_VALUE = 0;
  63.     
  64.     my $cmd = "\"$ALERT_APP\" -showregistration";
  65.     if ("$uname" ne "") {
  66.         $cmd = "sudo -u $uname \"$ALERT_APP\" -showregistration";
  67.     } 
  68.     
  69.     $EXIT_VALUE = system("$cmd");
  70.     
  71.     if (($EXIT_VALUE >> 8) != 0) {
  72.         if ("$installerPID" ne "") {
  73.             kill "QUIT", $installerPID;
  74.         }
  75.         kill "QUIT", $runnerPID;
  76.         exit($EXIT_VALUE >> 8);
  77.     }
  78. }
  79.  
  80. my $CLEANUP_PREFS = "$ARGV[0]" . "/Contents/Resources/CleanPrefs";
  81.  
  82. my $cmd = "\"$CLEANUP_PREFS\"";
  83. if ("$uname" ne "") {
  84.     $cmd = "sudo -u $uname \"$CLEANUP_PREFS\"";
  85. }
  86. system("$cmd");
  87.  
  88.